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Bulletin No. 1555-12 (correction 1) 


Description AOOOUNTS receivabie 

Model 


Model I/III 


400 Atrium— Otm Tandy Cantar, Fort Worth, Tasma 76102 




stock No. 
Date 

Page 1 of 


26-1555 Version 3.0/3.1 


June 18, 1982 


Problem ** note: this bulletin supercedes 1555-10 and 1555-11. ** 

!!!!!!!!!!!!!!!!!!!!!!!IREMOVE AND DISCARD BULLETINS 1555-10 AND 1555-11 
BEFORE INSERTING THIS BULLETIN.!!!!!!!!!!!!!i!!!!!!!!!!!!! 

(1) Adds finance charge for returned irerchandise. 

(2) Status Code 4 does not return to 0 vrfien paid. 

(3) Prints 0 balance statements (3.0). 

(4) Doesn't print 0 balance statements. (3.1) 


* * * 


THESE LINE CHANGES ARE REQUIRED 1 


* * * 


Solution 

The prctolem is corrected by following the steps listed below. 

1. Backup the diskette(s) and irake the changes on the Backup ccpy of the 
program. 

2. In BASIC load the program by typing IDAD"PROCESS*'. 

3. Make the following corrections; 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 

NDTE; DUE TO THE NUMBER OF PREVIOUS PATCHES TO THIS PROGRAM, ONLY THE NEW 
LINE WILL BE SHO'/aSI. IF YOU DO WISH TO PRINT 0 BALANCES, SEE NOTE 
ON THE NEXT PAGE. 

** 3.0 ONLY: ** 

New Line: 590 PRINT@5 6,"ACCOUNT ; ";CVI(DD$);;IFCVD(DB$)=0CRASC(DF$)=7THEN 
670ELSBGOSUB1440:.\B#=PB# :FF#=0# 

New Line: 630 QOSUB1660:AB#=AB#+PC#:IFPC#>0THENGOSUB1630 

New Line; 1640 IPRINrrAB(5 )VC$ ;TAB( 16 )VD! ;TAB( 24 )USINGL2$ ;VH#;: 

LPRINTTAB( 50 )USINGL2$ ;AB# :FF#=FF#- (VH#* (VH#<0)) ;RETURN 

New Line: 1660 RQ#=IKT(CDBL(RQ)*1000D0+.5q0)/ 

1000E!0:FI#=INT(CDBL(PC! )*10000D0+. 5q0)/10000C!0:PC#=0: 

IFSGN(PB#+FF#+IH# )=1ANDPC$="Y"THENPC#=INT( (PB#+FF#+PR#) *FI#*100i:!0)/ 

100D0;FA»=FA#+FC# 
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** 3.j3 AND 3.1 ** 

New Line: 1530 IFST<5Ai'JDABS(?R#)+ABS(FF#)>=MP#nffiNSr=l:acyrOl570 
New Line: 2510 IN$=I£FT$(TIME$,8) :QOSUB300:VC!=DX! :VD!=-1:VA$="F" 

** ADD THESE LINES: (3.0 AND 3.1) ** 

New Line: 625 0PEN"R",3,PT$ 

New Line: 645 FF#=0#:QOSUBl350:IFrC<>0TOENK=DI:Q3SUB2380 
New Line: 2384 IFEP=2ANDVA$^"S"'IHENFF#=FF#-(VH#* (VH#<0)) 

New Line: 2386 IFEP=2THEN2410 

******* NOTE: IF WISH TO PRINT 0 BALW^E STATZMENTS WHEN THERE HAS 
BEEN AaXWNT ACTIVITY HOR 'IHE MONTH, CHANGE THE FOLLOWING LINES TO READ AS 
FOLLOWS: ******* 

* * * These changes cure optional . * * * 

** 3.0 ONLY: ** 

New Line: 590 PRINT@576,"flCOOONT : ";CVI(DO$);:IF(CVD(DB$)= 

0ANDASC(DH$ )=0)QRA^(DF$ )=7THEN670Ei:£BQOSUBl440 :AB#=PB# :FF#=0# 

**3.1 ONLY: ** 

New Line: 910 IF(CVD(DB$)=0ANDASC(DH$)=0)ANDASC(DF$)<5THENi:£EIDF$=CHR$(0): 
HJT2, JR :RE1URNELSEIFASC (DF$ )=7THENRETURNEI5BQOSOB1290: AB#=PB#: ST=ST- 
iCB#>0ANDSTHJ) :SV$=SV$ (ST) :FF#=0# 

4. Type SAVE"PROCESS" to save the changes in the progran. 

5. At TRSDOS READY, make a backup copy of the corrected diskette. 









